erreur 1004

bonjour

je travail actuellement avec une machine qui prend des pieces en photo.
Le logiciel de cet appareil enregistre ces photos dans un dossier que je ne peux pas choisir et sous un nom que je ne peux pas choisir, du type :
"C1 date heure"

Bonjour,

Oui et quelle est la question??

L'expérience, c'est une connerie par jour, mais jamais la même..

bonjour

je travail actuellement avec une machine qui prend des pieces en photo.
Le logiciel de cet appareil enregistre ces photos dans un dossier que je ne peux pas choisir et sous un nom que je ne peux pas choisir, du type :
"C1 date heure"

bonjour

je travail actuellement avec une machine qui prend des pieces en photo.
Le logiciel de cet appareil enregistre ces photos dans un dossier que je ne peux pas choisir et sous un nom que je ne peux pas choisir, du type :
"C1 date heure"

bonjour

je travail actuellement avec une machine qui prend des pieces en photo.
Le logiciel de cet appareil enregistre ces photos dans un dossier que je ne peux pas choisir et sous un nom que je ne peux pas choisir, du type :
"C1 date heure"

Bonjour

Tu ne pose pas clairement ta question et enplus, tu perles d'une erreur 1004, on n'est pas devin, met le texte qui accompagne ce numéro pour que l'on puisse t'aider.

Ensuite,je doute que tu soit en .NET, car en .NET, tu parlerais d'une exception et non d'un numéro d'erreur.
Tu code en quoi ?

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site

bon j'ai un bug il marque toujours la meme chose quand j'ecrie un message!
pour la 1004 c bon mais.là j'ai un autre probleme (je suis en vb):


Public Function GetLatestFile(ByVal vsFolder As String, Optional ByRef vsFilter As String = "*") As String
Dim sFileName As String
Dim dLatest As Date
   If Right$(vsFolder, 1) <> "\" Then
       vsFolder = vsFolder & "\"
   End If
   sFileName = Dir$(vsFolder & vsFilter)
   Do While LenB(sFileName)
       If LenB(GetLatestFile) = 0 Or dLatest < FileDateTime(vsFolder & sFileName) Then
           GetLatestFile = sFileName
           dLatest = FileDateTime(vsFolder & sFileName)
       End If
       sFileName = Dir$()
   Loop
End Function

Sub aaa()

sFichier = GetLatestFile("C:\ClaraVision\Welding_Expert\config macro\Results\QSO bout à bout_C1")
If sFichier <> "" Then

ActiveSheet.Shapes.AddPicture ["C:\ClaraVision\Welding_Expert\config macro\Results\QSO bout à bout_C1" & sFichier], True, True, 15, 215, 290, 240

End If
End Sub

donc il me prend le fichier le plus recent et moi je lui demande de me l'ouvrir dans excel à un endroit (peut etre que c'est pas la bonne technique).
Puis il me dit que j'ai une incompatibilité de type???
donc je ne comprends pas où se trouve le probleme

 

Bonjour

VB d'accord, mais il y en a plusieurs :
VB6 (et inférieur), VBA (Excel, Word, Access, ...), VBS, VB.NET (1.0, 1.1, 2.0, 3.0, 3.5; respectivement : 2002, 2003, 2005, 2005, 2008).

Là tu bosses en VBA Excel.

Ensuite, quel est le texte de cette erreur ? 1004, ça ne me dit strictement rien.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site

bonjour

je travail actuellement avec une machine qui prend des pieces en photo.
Le logiciel de cet appareil enregistre ces photos dans un dossier que je ne peux pas choisir et sous un nom que je ne peux pas choisir, du type :
"C1 date heure"

il y a un probleme lorsque l'on veut mettre des couleurs!!!