Bonjour,
je cherche à enregistrer mon classeur dans le fichier que je crée.
Lorsque je clique sur un bouton cela me crée un répertoire portant le contenu d'une cellule
Private Sub CommandButton1_Click()
' creer le fichier
If Dir("c:\mesdocuments\" & Range("a1"), vbDirectory) = "" Then
MkDir "c:\mesdocuments\" & Range("a1")
End If
maintenant j'aimerai que je puisse enregistrer en pdf dans ce fameux répertoire
"Dim repertoire
repertoire = ("c:\mesdocuments\" & Range("a1") & "\")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"repertoire" & [a2].Value & " " & ".pdf""
malheureusement il me n'enregistre pas dans le répertoire que j'ai créé, pourriez vous m'aider?
je cherche à enregistrer mon classeur dans le fichier que je crée.
Lorsque je clique sur un bouton cela me crée un répertoire portant le contenu d'une cellule
Private Sub CommandButton1_Click()
' creer le fichier
If Dir("c:\mesdocuments\" & Range("a1"), vbDirectory) = "" Then
MkDir "c:\mesdocuments\" & Range("a1")
End If
maintenant j'aimerai que je puisse enregistrer en pdf dans ce fameux répertoire
"Dim repertoire
repertoire = ("c:\mesdocuments\" & Range("a1") & "\")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"repertoire" & [a2].Value & " " & ".pdf""
malheureusement il me n'enregistre pas dans le répertoire que j'ai créé, pourriez vous m'aider?