Ne pas nommer le port usb dans macro

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion mcj1997
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mcj1997

XLDnaute Accro
Bonjour,

J'ai créé cette macro dans un fichier enregistré sur ma clé, le port usb sur l'ordinateur sur lequel j'ai fait le fichier était le (d🙂.

Le problème est lorsque je veux utiliser cettte macro sur un autre ordinateur et que de ce fait ma clé n'est pas en port D mais H ou I sur un autre ...... la macro n'est pas trouvable !


Sub AUTO()
ChDir "D:\A"
ActiveWorkbook.SaveAs Filename:="D:\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub


Merci d'avance
 
Trier par date Trier par votes
Re : Ne pas nommer le port usb dans macro

Bonjour,

à tester :
VB: 
sub auto()
Dim Chemin$
Chemin= mid(Thisworkbook.path,1,3)
'pas utiles à priori ces 2 lignes :
'ChDrive mid(Chemin,1,1)
'ChDir Chemin
ActiveWorkbook.SaveAs Filename:=Chemin & "\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

++
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ne pas nommer le port usb dans macro

Softmama à dit:
Bonjour,

à tester :
VB: 
sub auto()
Dim Chemin$
Chemin= mid(Thisworkbook.path,1,3)
'pas utiles à priori ces 2 lignes :
'ChDrive mid(Chemin,1,1)
'ChDir Chemin
ActiveWorkbook.SaveAs Filename:=Chemin & "\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub




++
Cliquez pour agrandir...
Merci mais cela ne fonctionne pas.


Bonjour,

En PJ mon fichier sur lequel vous trouverez sur la barre d'outils un bouton pour ouvrir le fichier "auto" qui est en H sur ma clé usb.

Vous verrrez ainsi le message d'erreur.
Merci d'avance,
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Ne pas nommer le port usb dans macro

Re,

N'étant pas devant ton ordi et n'ayant pas de fichier à me mettre sous la dent, je suis contraint d'essayer de te guider avec les éléments que tu me donnes :

Merci mais cela ne fonctionne pas.
Cliquez pour agrandir...

me paraît un peu léger pour savoir (avec certitude) ce qui cloche, tu ne crois pas ? Peux-tu me dire, si il y a un message d'erreur ou pas déjà, et si oui, quelle ligne est surlignée en jaune en débugage ?

Sinon, tu peux tester, en remettant les 2 lignes :

VB: 
sub auto()
Dim Chemin$
Chemin= mid(Thisworkbook.path,1,3)
msgbox Chemin
ChDrive mid(Chemin,1,1)
ChDir Chemin
ActiveWorkbook.SaveAs Filename:=Chemin & "\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Est-ce que la boîte de dialogue affiche bien X:\ où X est la lettre de volume ??
 
Vote positif 0 Vote négatif
Re : Ne pas nommer le port usb dans macro

Softmama à dit:
Re,

N'étant pas devant ton ordi et n'ayant pas de fichier à me mettre sous la dent, je suis contraint d'essayer de te guider avec les éléments que tu me donnes :



me paraît un peu léger pour savoir (avec certitude) ce qui cloche, tu ne crois pas ? Peux-tu me dire, si il y a un message d'erreur ou pas déjà, et si oui, quelle ligne est surlignée en jaune en débugage ?

Sinon, tu peux tester, en remettant les 2 lignes :

VB: 
sub auto()
Dim Chemin$
Chemin= mid(Thisworkbook.path,1,3)
msgbox Chemin
ChDrive mid(Chemin,1,1)
ChDir Chemin
ActiveWorkbook.SaveAs Filename:=Chemin & "\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Est-ce que la boîte de dialogue affiche bien X:\ où X est la lettre de volume ??
Cliquez pour agrandir...

J'ai le message suivant : "impossible de trouver la macro 'classeur2.XLS!auto'. Par contre le nom de ma macro ne comporte pas classeur2 ; classeur 2 est le nom du fichier dans lequel est la macro.
 
Vote positif 0 Vote négatif
Re : Ne pas nommer le port usb dans macro

Bonjour,
pour trouver le disque concerné, peut-être comme cela :
Code: 
Sub test()
Set oFSO = New Scripting.FileSystemObject 'cocher MicrosoftScriptingRuntime
For Each oDrv In oFSO.Drives
If oDrv.DriveType = Removable Then MsgBox "Disquette ou clé USB sur disque " & oDrv.DriveLetter
Next oDrv
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Ne pas nommer le port usb dans macro

bonjour,

j'ai simplement modifié ta macro auto ainsi, et cela fonctionne chez moi... à condition d'avoir un fichier AUTO.XLS à la racine de la clé USB sur laquelle est enregistré ce fichier :
VB: 
Sub OUVERTURE_AUTO()
    Workbooks.Open Filename:=Mid(ThisWorkbook.Path, 1, 3) & "\AUTO.xls", UpdateLinks:=0
End Sub
 
Vote positif 0 Vote négatif
Re : Ne pas nommer le port usb dans macro

Bonjour à tous


mcj1997 à dit:
Bonjour,

Cela ne fonctionne pas et voici ce qui ressort en erreur, en jaune

Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePersonnelle", Position:=msoBarTop, _
Temporary:=True)
Cliquez pour agrandir...
Ca nous éclaire... ...sauf que cette ligne n'est pas dans le code !

Sub AUTO()
ChDir "D:\A"
ActiveWorkbook.SaveAs Filename:="D:\A\AUTO.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Cliquez pour agrandir...


Bon courage, Softmama...



ROGER2327
#5798

Mercredi 4 Palotin 139 (Sainte Susan Calvin, docteur - fête Suprême Quarte)
4 Floréal An CCXX, 5,5069h - aubépine
2012-W17-1T13:12:59Z
 
Vote positif 0 Vote négatif
Re : Ne pas nommer le port usb dans macro

C'est dans le fichier qui est en pièce jointe dans le programme qui créé le bouton dans la barre d'outils.

Fichier en PJ dans le poste 3 :

Dans thisworkbook :

Private Sub Workbook_Open() '

Dim Bouton As CommandBarButton

Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePersonnelle", Position:=msoBarTop, _
Temporary:=True)

Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 2937
.OnAction = "OUVERTURE AUTO" '
.TooltipText = "OUVERTURE AUTO"
.Caption = "AUTO"
.Style = msoButtonIconAndCaption


End With
CmdBar.Visible = True
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
92
sylvanu
sylvanu
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
70
vazvaz
V
mouchtre
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
914
mouchtre
mouchtre
gsx-air
  • Question Question
Microsoft 365 Code qui ne fonctionne pas sur Excel 365
Réponses
13
Affichages
856
Staple1600
Staple1600
C
  • Question Question
Microsoft 365 enregistrer sous vba un classeur avec valeur cellule et non sur le lien
Réponses
3
Affichages
1 K
Chapichapo
C
P
  • Question Question
XL 2016 Découpage Fichier Excel en plusieurs Fichiers selon une clé - VBA
Réponses
1
Affichages
2 K
fanch55
fanch55
M
  • Question Question
Microsoft 365 Macro enregistrement PDF avec nom dans une cellule
Réponses
2
Affichages
1 K
kiki29
kiki29
O
  • Question Question
Microsoft 365 transformation des dates FR en date ENG lors de l'export en .txt avec vba
Réponses
3
Affichages
755
or3ly74
O
N
  • Question Question
Microsoft 365 probleme macro et userfrom +extraction
Réponses
1
Affichages
615
yal
Y
MOA_Excel
  • Résolu(e)
Microsoft 365 Afficher et débloquer un onglet masqué et protégé pour faire la macro
Réponses
10
Affichages
2 K
MOA_Excel
MOA_Excel
M
  • Question Question
Microsoft 365 Petit changement
Réponses
2
Affichages
997
marine_volria
M
A
  • Résolu(e)
XL 2019 Comment empêcher l'ouverture d'un fichier Excel, si les macros ne sont pas activés sur le pc
Réponses
7
Affichages
2 K
abi_71@
A
MOA_Excel
  • Résolu(e)
Microsoft 365 Générer automatiquement un fichier CSV et non pas XLSX
Réponses
1
Affichages
1 K
MOA_Excel
MOA_Excel
C
  • Question Question
Microsoft 365 Erreur Automation : L'objet invoqué s'est déconnecté de ses clients
Réponses
9
Affichages
1 K
fanch55
fanch55
MOA_Excel
  • Résolu(e)
Microsoft 365 Changer le format de 2 colonnes à partir d'un fichier généré auto
Réponses
6
Affichages
993
MOA_Excel
MOA_Excel
P
  • Question Question
XL 2010 Macro et fichier .csv
2
Réponses
20
Affichages
3 K
papypog
P
ArnaudSi
  • Question Question
XL pour MAC Vba - Macro enregistrer sous...
Réponses
7
Affichages
5 K
ArnaudSi
ArnaudSi
R
  • Résolu(e)
Microsoft 365 Macro "suicide" bloque et ne quitte pas Excel
Réponses
4
Affichages
969
raf26
R
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
G
  • Question Question
Microsoft 365 filtrer / défiltrer insertion de ligne automatique - macro qui ne fonctionne pas ou de manière aléatoire
Réponses
4
Affichages
1 K
Grelune
G
Retour