copie des fichiers si vrai VBA

[Bens7]

Bonjour a tous j'ai un petit prog pour copier des fichiers d'un emplacement a l'autre meais je n'arrive pas a selectionner une ou 2 option si VRAI
pouriez vous m'aidez SVP !!!
voir fichier en peices jointes !

 

[Papou-net]

Re : copie des fichiers si vrai VBA

Bonsoir Bens7,

Si j'ai bien compris, je verrais ta macro comme ceci:

Sub test()
Dim Cel As Range, Copie As Boolean
For Each Cel In Range("A:A").SpecialCells(xlCellTypeFormulas)
  If Cel.Value <> "" Then FileCopy Cells(Cel.Row, 2).Value & Cells(Cel.Row, 1).Value, _
    Cells(Cel.Row, 3).Value & Cells(Cel.Row, 1).Value
Next
If Copie = True Then MsgBox "Copie terminé"
End Sub

Cordialement.

 

[Bens7]

Re : copie des fichiers si vrai VBA

Super mais la Message Box marche pas

 

[Papou-net]

Re : copie des fichiers si vrai VBA

Bonsoir Bens7,

Si j'ai bien compris, je verrais ta macro comme ceci:

Sub test()
Dim Cel As Range, Copie As Boolean
For Each Cel In Range("A:A").SpecialCells(xlCellTypeFormulas)
  If Cel.Value <> "" Then FileCopy Cells(Cel.Row, 2).Value & Cells(Cel.Row, 1).Value, _
    Cells(Cel.Row, 3).Value & Cells(Cel.Row, 1).Value
Next
If Copie = True Then MsgBox "Copie terminé"
End Sub

Cordialement.

RE:

C'est exact, j'ai oublié de mettre la variable Copie à True si une des cases est cochée.

Voilà donc comment compléter la macro:

Sub test()
Dim Cel As Range, Copie As Boolean
For Each Cel In Range("A:A").SpecialCells(xlCellTypeFormulas)
  If Cel.Value <> "" Then
    FileCopy Cells(Cel.Row, 2).Value & Cells(Cel.Row, 1).Value, _
      Cells(Cel.Row, 3).Value & Cells(Cel.Row, 1).Value
    Copy = True
  End If
Next
If Copie = True Then MsgBox "Copie terminé"
End Sub

Cordialement.

 

[Bens7]

Re : copie des fichiers si vrai VBA

toujours pas desole

 

[Papou-net]

Re : copie des fichiers si vrai VBA

toujours pas desole

RE:

Oups, remplace Copy = True par Copie = True.

Cordialement.