Erreur ouverture automatique d'un fichier [Résolu/Fermé]

Signaler
Messages postés
212
Date d'inscription
samedi 27 juin 2009
Statut
Membre
Dernière intervention
17 mars 2018
-
Messages postés
212
Date d'inscription
samedi 27 juin 2009
Statut
Membre
Dernière intervention
17 mars 2018
-
Bonjour,
Je voudrais ouvrir et fermer automatiquement un fichier Excel. Mais je n'arrive pas à comprendre pourquoi le message suivant apparaît quand j'effectue l’exécution pas à pas: "Désolé... nous ne trouvons pas C:\Users\Desktop\EDC 1\groupe\EST.xlx. Peut-être l'avez-vous déplacé, renommé ou supprimé?
NB: le fichier est sur le bureau dans le dossier groupe.
Merci de m'aider.

Ci-après les lignes de code saisi:
Sub MonTest()
Workbooks.Open "C:\Users\EDC 1\Desktop\groupe\EST.xlx"
Workbooks("C:\Users\EDC 1\Desktop\groupe\EST.xlx").Close

End Sub

2 réponses

Bonjour iroko45,

⚠  Un fichier xlsx ne peut pas contenir de macros, donc le fichier
où tu mets ta sub MonTest() doit être un fichier .xlsm

Je suppose que ce fichier .xlsm ouvre un autre classeur Excel, qui
lui peut être un classeur .xlsm ou .xlsx (selon qu'il contient ou non
des macros).

Attention à ton orthographe : avec VBA, une faute peut faire échouer
le code ; je dis cela car je pense que le nom de ton fichier n'est pas
EST.xlx mais TEST.xlsx (ou peut-être TEST.xlsm ?).

La suite est avec TEST.xlsx (à toi de mettre éventuellement .xlsm).

Essaye d'abord ceci :


Sub MonTest() 
  Workbooks.Open "C:\Users\iroko45\Desktop\EDC 1\groupe\TEST.xlsx"
End Sub


Remplace iroko45 par le nom réel de l'utilisateur ; si ton dossier "EDC 1"
est bien sur le bureau de Windows, c'est ok ; sinon, remplace Desktop
par Documents :


Sub MonTest() 
  Workbooks.Open "C:\Users\iroko45\Documents\EDC 1\groupe\TEST.xlsx"
End Sub


Ton classeur doit normalement s'ouvrir ; sinon, vérifie si ce sont bien
les dossiers "EDC 1" et "groupe" (et TEST.xlsx doit exister).

Je n'ai pas encore mis l'instruction de fermeture du fichier, sinon ça
ouvrirai ton fichier puis le refermerai aussitôt => tu ne saurais pas
si l'ouverture du fichier a bien marché.

Quand ça sera ok pour l'ouverture, voici l'instruction de fermeture :

Workbooks.Close "C:\Users\iroko45\Desktop\EDC 1\groupe\TEST.xlsx"

À toi de la placer correctement ; le chemin devra être le même
que celui que tu as utilisé pour l'ouverture => à adapter.

Cordialement
 
Messages postés
212
Date d'inscription
samedi 27 juin 2009
Statut
Membre
Dernière intervention
17 mars 2018
2
bonjour,
merci Lionel. C’était xlsx qu'il fallait écrire.

Merci