Bonjour,
J'ai une commande dans mon classeur qui fonctionnais dans le passé mais qui ne fonctionne plus et honnêtement... je ne me souviens plus de l'avoir modifié... étrange!!!
Voici le code :
Private Sub CommandButton1_Click()
Dim x As Long
x = [COUNTA(B3:B63)+2 ]
Range("A1:F" & x).Select
ActiveWindow.Selection.Copy
Dim AppWord
Set AppWord = CreateObject("Word.Application")
Shell "winword.exe ""C:\Documents and Settings\" & InputBox("Quel est votre nom d'utilisateur sur cet ordinateur?") & "\Bureau\Stats\stats.doc"""""
AppWord.Visible = True
AppWord.Selection.Paste
End Sub
Ceci ouvre la boite de dialogue, j'ay entre mon nom d'utilisateur et word s'ouvre avec le fichier intitulé stats.doc en avant plan.. Puis l'erreur suivante apparait dans excel :
Erreur d'exécution 91
Variable objet ou variable de bloc with non définie
Pourtant je vous jure ça fonctionnais avant...
Merci de votre attention.
P.S. le jaune est ce qui est surligné en jaune lors du déboggage
J'ai une commande dans mon classeur qui fonctionnais dans le passé mais qui ne fonctionne plus et honnêtement... je ne me souviens plus de l'avoir modifié... étrange!!!
Voici le code :
Private Sub CommandButton1_Click()
Dim x As Long
x = [COUNTA(B3:B63)+2 ]
Range("A1:F" & x).Select
ActiveWindow.Selection.Copy
Dim AppWord
Set AppWord = CreateObject("Word.Application")
Shell "winword.exe ""C:\Documents and Settings\" & InputBox("Quel est votre nom d'utilisateur sur cet ordinateur?") & "\Bureau\Stats\stats.doc"""""
AppWord.Visible = True
AppWord.Selection.Paste
End Sub
Ceci ouvre la boite de dialogue, j'ay entre mon nom d'utilisateur et word s'ouvre avec le fichier intitulé stats.doc en avant plan.. Puis l'erreur suivante apparait dans excel :
Erreur d'exécution 91
Variable objet ou variable de bloc with non définie
Pourtant je vous jure ça fonctionnais avant...
Merci de votre attention.
P.S. le jaune est ce qui est surligné en jaune lors du déboggage
Dernière édition: