Syntaxe Chemin qui Bug

[MuscatMimi]

Bonjour a tout le Forum

J'ai un petit soucis avec ce Code
concernant le Chemin ici en rouge,j'ai une erreur sur ces lignes
Fichier Introuvable

Sub autexe()
Dim ch As String
  Dim rs As New ADODB.Recordset
 [COLOR="Red"] Dim chem As String
  chem = "\Sauvegarde Courriers"[/COLOR]  
Set cnn = New ADODB.Connection
    [COLOR="red"]ch = ActiveDocument.path & chem  [/COLOR]
  cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & ch & "/" & "NuméroFacture.mdb"
  rs.Open "Tbx", cnn, adOpenDynamic, adLockOptimistic
  On Error Resume Next

  With rs

  .Fields("TextBox") = ch 
  
  .AddNew
  End With
  rs.Update
  rs.Close
  cnn.Close
  
End Sub

Merci a l'avance pour votre aide

Cordialement

 

[roro69]

Re : Syntaxe Chemin qui Bug

Bonjour (a essayer)
'Définit le répertoire contenant le fichier
Chem = "C:\dossier\Sauvegarde Courriers"
A++

 

[MuscatMimi]

Re : Syntaxe Chemin qui Bug

Bonjour roro 69

Non ça ne fonctionne pas et puis ,je ne désire pas
nommer un chemin précis dans le code
car mon dossier contenant le Fichier peut être placé sur
n'importe quel disque dur


merci tout de même de ta réponse

Bon we

 

[Bebere]

Re : Syntaxe Chemin qui Bug

bonjour Vaucluse,Roro
et ce qui suit
ch = "\Sauvegarde Courriers"
ch = ThisWorkbook.Path & ch
à bientôt

 

[youky(BJ)]

Re : Syntaxe Chemin qui Bug

Bonjour le fil,
Comme on dit tous les chemins mènent à Rome...
Autant utiliser une boite de dialogue ( à voir )
Bruno

fichier = Application.GetOpenFilename(("Tous les fichiers Excel (*.xls),*.xls"), 2, "Fichiers à rechercher")
If fichier = False Then Exit Sub
  Workbooks.Open fichier

 

[MuscatMimi]

Re : Syntaxe Chemin qui Bug

Bonjour Bébére, Youky

Merci de votre intervention,
j'ai opté pour la réponse de Bébére

je viens d'essayer ,ça fonctionne nickel

Bon week-end a tous

a bientôt