Salut,
je débarque, je tente ma première macro forcément ça ne passe pas, dommage je croyais que j'étais un génie.
Vu que ce n'est pas le cas, je vous remercie vous les génies qui pouvez m'aider.
le but est d'appeler un autre fichier csv sur le réseau, l'ouvrir avec excel, colorié l'intérieur des cellules cibles et de le sauvegarder.
Si vous pouviez me donner la fonction pour sauvegarder un csv en fichier excel ce serait cool aussi.
Sinon mon problème, quand la macro ouvre le fichier impossible de lui dire de sélectionner la case que je veux, c'est la ligne Cells(0, 15).Select qui ne fonctionne pas
Mon code
Public Sub DossiersEnRelance()
numfichier = InputBox(prompt:="Quel est le numéro du fichier ?", Title:="Num fichier", Default:="num?")
If numfichier = "num?" Or numfichier = vbNullString Then
repnumfichier = MsgBox(prompt:="Aucune valeur d'indiquer, Souhaites-tu reconmmencer?", Buttons:=vbYesNoCancel)
If repnumfichier = vbYes Then
Run "DossiersEnRelance"
Else
Exit Sub
End If
Else
Range("a65536").End(xlUp).Offset(1, 0) = numfichier
Workbooks.Open Filename:="S:\ABO-TECK-GM\Abotel\Scan NRJ\Dossiersenrelance_" & numfichier & ".csv", Origin:=xlWindows, Local:=True
Cells(0, 15).Select
Do While ActiveCell <> "conforme" Or ActiveCell = ""
Cell.Interior.ColorIndex = RGB(0, 255, 0)
ActiveCell.Offset(1, 0).Select
Loop
End If
End Sub
je débarque, je tente ma première macro forcément ça ne passe pas, dommage je croyais que j'étais un génie.
Vu que ce n'est pas le cas, je vous remercie vous les génies qui pouvez m'aider.
le but est d'appeler un autre fichier csv sur le réseau, l'ouvrir avec excel, colorié l'intérieur des cellules cibles et de le sauvegarder.
Si vous pouviez me donner la fonction pour sauvegarder un csv en fichier excel ce serait cool aussi.
Sinon mon problème, quand la macro ouvre le fichier impossible de lui dire de sélectionner la case que je veux, c'est la ligne Cells(0, 15).Select qui ne fonctionne pas
Mon code
Public Sub DossiersEnRelance()
numfichier = InputBox(prompt:="Quel est le numéro du fichier ?", Title:="Num fichier", Default:="num?")
If numfichier = "num?" Or numfichier = vbNullString Then
repnumfichier = MsgBox(prompt:="Aucune valeur d'indiquer, Souhaites-tu reconmmencer?", Buttons:=vbYesNoCancel)
If repnumfichier = vbYes Then
Run "DossiersEnRelance"
Else
Exit Sub
End If
Else
Range("a65536").End(xlUp).Offset(1, 0) = numfichier
Workbooks.Open Filename:="S:\ABO-TECK-GM\Abotel\Scan NRJ\Dossiersenrelance_" & numfichier & ".csv", Origin:=xlWindows, Local:=True
Cells(0, 15).Select
Do While ActiveCell <> "conforme" Or ActiveCell = ""
Cell.Interior.ColorIndex = RGB(0, 255, 0)
ActiveCell.Offset(1, 0).Select
Loop
End If
End Sub
